// ***************************************************************************
// * f: PIT-40 xml                                                           *
// *                                                                         *
// * roczne rozliczenie za 2014 r.                                           *
// *                                                                         *
// * 15.12.2014 WA-PRO (Administrator)  15.01.2015 (ML)                      *
// ***************************************************************************
//#declare opis$ char(1000)
local
  //
  if not (val('¢')=243) // tylko DOS
     opis$=''
  end
  dl=0
  ////////////k=0
  j=0
  t$=''
  //
  rodz_dok=0
  nr_dok$=''
  data=0
  datap=0
  datka=0
//adres pracownika
  kraj_p$=''
  woj_p$=''
  powiat_p$=''
  gmina_p$=''
  ulica_p$=''
  dom_p$=''
  lokal_p$=''
  miasto_p$=''
  kod_p$=''
  poczta_p$=''
//strona 2
  przychod=0
  koszty=0
  koszty_roczne=0
  koszty_roczne2=0
  dochod=0
  dochod_bez_skladek=0
  sdochod=0
  zaliczka=0
  pd1=0
  zwykle=0
  wyzsze=0
  koszty36=0
//strona 3
  zdrowotne=0
  zdrowotneo1=0
  pd1_bez_zdrowotne=0
  smniejsze=0
  swieksze=0
//wska«niki
  pr1=0
  pr2=0
  pr3=0
  pod1=0
  pod2=0
  pod3=0
  ulga=0
//ulga prorodzinna od 2007 r.
  ulga_rodz=0
  ulga_dz=0
  //
  inne=0
  inne$=''
  //
  nazwa_pliku$=''
  l1=0
  l2=0
  tekst$=''
  kod_us$=''
  rola$=''
  id=0
  id$=''
  w=0
end
//
//--------------------------------
data=Data(31,12,rokpit)
UstawDat©DanychPodstawowych(data)
//--------------------------------
pr1=0
pod1=0
pr2=0
pod2=0
pr3=0
pod3=0

Clear(Progi podatkowe)
Progi podatkowe (Rok)=rokpit
Set(Progi podatkowe)
Loop
  Next(Progi podatkowe)
  if eof() or Progi podatkowe (Rok)<>rokpit
     break
  end
  case
    of pr1=0
       pr1=Progi podatkowe (Do kwoty)
       pod1=Progi podatkowe (Procent podatku)
    of pr2=0
       pr2=Progi podatkowe (Do kwoty)
       pod2=Progi podatkowe (Procent podatku)
    of pr3=0
       pod3=Progi podatkowe (Procent podatku)
  end
end
//
Koszty uzyskania i ulgi podatkowe (Rok)=rokpit
Get(Koszty uzyskania i ulgi podatkowe)
if found()
   ulga=Koszty uzyskania i ulgi podatkowe (Ulga podatkowa roczna)
   koszty_roczne=Koszty uzyskania i ulgi podatkowe (Koszty roczne)
   koszty_roczne2=Koszty uzyskania i ulgi podatkowe (Koszty podwy¾szone roczne)
   ulga_rodz=Koszty uzyskania i ulgi podatkowe (Ulga prorodzinna) // od 2007 r.
end

if ulga=0 or koszty_roczne=0 or koszty_roczne2=0
  Ostrze¾enie('Prosz© uzupeˆni† kartotek© "Koszty uzyskania i ulgi podatkowe" o roczne wartoœci kosztów i ulgi')
end

if (rokpit>2006 and rokpit<2009) and ulga_rodz=0
  Ostrze¾enie('Prosz© uzupeˆni† kartotek© "Koszty uzyskania i ulgi podatkowe" o roczne wartoœci kosztów i ulgi')
end

//
datka=0
Podstawowe dane podatkowe (Data Od)=data
Set(Podstawowe dane podatkowe)
Loop
  Previous(Podstawowe dane podatkowe)
  if eof() or (Podstawowe dane podatkowe (Data Od)<datka and datka<=Data(1,1,rokpit))
     break
  end
  case
    of Podstawowe dane podatkowe (Koszty uzyskania)='Zwykˆe'
       zwykle=1
    of Podstawowe dane podatkowe (Koszty uzyskania)='Podwy¾szone'
       wyzsze=1
    of Podstawowe dane podatkowe (Koszty uzyskania)='Autorskie'
       zwykle=1
  end
  datka=Podstawowe dane podatkowe (Data Od)
end
if wyzsze=1
   koszty_roczne=koszty_roczne2
end

if koszty_p37>0
   koszty36=koszty_p37
else
   case
     of zwykle=1 and wyzsze=1
        koszty36=3
     of zwykle=1
        koszty=1
        koszty36=1
     of wyzsze=1
        koszty36=3
     else
        koszty36=0
   end
end
//
// kontrola limitu kosztów
if k>koszty_roczne
   k=koszty_roczne
   d=p-k
end
d=Max(d,0)
//
if koszty_uz>0
   koszty36=5
   k=koszty_uz
   d=Max(p-koszty_uz,0)
end

przychod=p+pa+p1+p7+po7+p8+pz
koszty=k+ka+k1+k7
dochod=d+d1+d7+d8+dz
zaliczka=z+z1+z7+z8+zz
// blok G - ograniczenie odliczeä od dochodu do wysoko˜ci dochodu
spoleczne=Min(spoleczne,dochod)
if swiadczenia>0
   swiadczenia=Min(swiadczenia,(dochod-spoleczne))
end
//
dochod_bez_skladek=Max(dochod-spoleczne,0)
sdochod=Round(Max(dochod_bez_skladek-skl_org-swiadczenia,0),1)

if sdochod>pr2
   pd1=pod2/100*(pr2-pr1)+pod1/100*pr1-ulga+(sdochod-pr2)*pod3/100    //ulga->roczna
  else
   if sdochod>pr1
      pd1=pod1/100*pr1-ulga+(sdochod-pr1)*pod2/100   //ulga->roczna
     else
      pd1=sdochod/100*pod1-ulga   //ulga->roczna
   end
end
pd1=Max(pd1,0)
smniejsze=0
swieksze=0
zdrowotne=Min(zdrowotnep,pd1)
zdrowotneo1=Min(zdrowotneo,pd1)
//
// obliczenie ulgi prorodzinnej - od 2007 r.
ulga_dz=0
pd1_bez_zdrowotne=pd1-zdrowotneo1
if rokpit>2006
   Clear(Ulga prorodzinna)
   Ulga prorodzinna (Rok)=rokpit
   Set(Ulga prorodzinna)
   Previous(Ulga prorodzinna)
   if not eof()
     if Ulga prorodzinna (Rok) =rokpit
        if rokpit<2009
           ulga_dz=ulga_rodz*Ulga prorodzinna (Ilo˜† dzieci)
          else
           //....od rozliczenia za 2009 r. ......
           //.... ale rozliczenie jej ju¾ nie przez pˆatnika
           ulga_dz=Round((ulga_rodz/12)*Ulga prorodzinna (Ilo˜† miesi©cy),0.01)
        end
     end
   end
end
inne=0
inne$=''
ulga_dz=Min(pd1_bez_zdrowotne,ulga_dz)
pd1_bez_zdrowotne=pd1_bez_zdrowotne-ulga_dz
   //
if ulga_dz>0
   inne$='ulga na dzieci (zgodnie z art.27f ustawy)'
   inne=ulga_dz
   //
end
//
if rokpit<2006
   pd1_bez_zdrowotne=Round(pd1_bez_zdrowotne,0.1)
  else
   pd1_bez_zdrowotne=Round(pd1_bez_zdrowotne,1)
end
//
if pd1_bez_zdrowotne>zaliczka
   smniejsze=Max(pd1_bez_zdrowotne-zaliczka,0)  //niedoplata
else
   swieksze=Max(zaliczka-pd1_bez_zdrowotne,0)   //nadplata
end

if (val('¢')=243) //windows
  //#id$=Pracownik (Nr ewidencyjny)
  //#PobierzPracownika(id$)
else
  id=Pracownik (Nr ewidencyjny)
  PobierzPracownika(id)
end
//
Urz©dy Skarbowe Pracownika (Od dnia)=data
Set(Urz©dy Skarbowe Pracownika)
Previous(Urz©dy Skarbowe Pracownika)
if eof()
   Clear(Urz©dy Skarbowe Pracownika)
end
if Urz©dy Skarbowe Pracownika (Nr Urz©du)>0
  PobierzUrz¥dSkarbowy(Urz©dy Skarbowe Pracownika (Nr Urz©du))
  if (val('¢')=243) //windows
   //#kod_us$=Urz¥d Skarbowy(Kod Urz©du)
  else
    Kody urz©d¢w skarbowych (Nazwa Urz©du)=Urz¥d Skarbowy (Nazwa)
    Get(Kody urz©d¢w skarbowych)
    if found()
      kod_us$=Kody urz©d¢w skarbowych (Kod)
    end
  end
end
//
// ******* e-PIT *******************************
Free(Kolejka)
w=1

rola$='Pˆatnik'

tekst$='<?xml version="1.0" encoding="utf-8"?>'
call AddKolejka
tekst$='<Deklaracja xsi:schemaLocation="'
call AddKolejka
tekst$='http:'&chr(47)&chr(47)&'crd.gov.pl/wzor/2014/12/12/1921/schemat.xsd"'
call AddKolejka
tekst$=chr(255)&'xmlns="http:'&chr(47)&chr(47)&'crd.gov.pl/wzor/2014/12/12/1921/"'
call AddKolejka
tekst$=chr(255)&'xmlns:etd="http:'&chr(47)&chr(47)&'crd.gov.pl/xml/schematy/dziedzinowe/mf/2011/06/21/eD/DefinicjeTypy/"'
call AddKolejka
//tekst$=chr(255)&'xmlns:zr="http:'&chr(47)&chr(47)&'crd.gov.pl/xml/schematy/dziedzinowe/mf/2014/12/01/eD/PITR/"'
//call AddKolejka
tekst$=chr(255)&'xmlns:zzu="http:'&chr(47)&chr(47)&'crd.gov.pl/xml/schematy/dziedzinowe/mf/2011/10/07/eD/ORDZU/"'
call AddKolejka
tekst$=chr(255)&'xmlns:xsi="http:'&chr(47)&chr(47)&'www.w3.org/2001/XMLSchema-instance">'
call AddKolejka
tekst$='<Naglowek>'
call AddKolejka
tekst$='<KodFormularza kodSystemowy="PIT-40 (20)" kodPodatku="PIT" rodzajZobowiazania="Z'
call AddKolejka
tekst$='" wersjaSchemy="1-0E">PIT-40'
call AddKolejka
tekst$='</KodFormularza><WariantFormularza>20</WariantFormularza>'
call AddKolejka
if cel=1 //korekta
  cel=2
else
  cel=1
end
//
if cel=2 //korekta
  if (val('¢')=243) // tylko Windows
     //#Pytania ORD_ZU Win(opis$)
    else
     Pytania ORD_ZU (t1$,t2$,t3$,t4$)
  end
end
//
tekst$='<CelZlozenia poz="P_6">'&num2txt(cel)&'</CelZlozenia>'
call AddKolejka
tekst$='<Rok>'&num2txt(rokpit)&'</Rok>'
call AddKolejka
tekst$='<KodUrzedu>'&kod_us$&'</KodUrzedu></Naglowek>'
call AddKolejka
tekst$='<Podmiot1 rola="'&Kodowanie UNICODE (rola$)&'">'
call AddKolejka
if Firma (Rodzaj pˆatnika)='Osoba fizyczna'
   Pobierz dane identyfikacyjne pˆatnika (data, '', rodz_dok, nr_dok$, datap)
   tekst$='<etd:OsobaFizyczna><etd:NIP>'&Funkcja usuwaj¥ca znaki przestankowe (Firma (NIP))&'</etd:NIP>'
   call AddKolejka
   tekst$='<etd:ImiePierwsze>'&Kodowanie UNICODE (Dane ewidencyjne osoby fizycznej (Pierwsze imi©))&'</etd:ImiePierwsze>'
   call AddKolejka
   tekst$='<etd:Nazwisko>'&Kodowanie UNICODE (Dane ewidencyjne osoby fizycznej (Nazwisko))&'</etd:Nazwisko>'
   call AddKolejka
   tekst$='<etd:DataUrodzenia>'&Format(Dane ewidencyjne osoby fizycznej (Data urodzenia),'d10-')&'</etd:DataUrodzenia>'
   call AddKolejka
   tekst$='</etd:OsobaFizyczna>'
   call AddKolejka
else
   tekst$='<etd:OsobaNiefizyczna><etd:NIP>'&Funkcja usuwaj¥ca znaki przestankowe (Firma (NIP))&'</etd:NIP><etd:PelnaNazwa>'
   call AddKolejka
   tekst$=Kodowanie UNICODE (Firma (Peˆna nazwa firmy))
   call AddKolejka
   if Firma (REGON)<>''
      tekst$='</etd:PelnaNazwa><etd:REGON>'&Firma (REGON)&'</etd:REGON></etd:OsobaNiefizyczna>'
   else
      tekst$='</etd:PelnaNazwa></etd:OsobaNiefizyczna>'
   end
   call AddKolejka
end
tekst$='</Podmiot1>'
call AddKolejka
// ------ Podatnik ---------------
//tekst$='<Podmiot2 rola="Podatnik" poz="P_9A"><etd:OsobaFizyczna>'
tekst$='<Podmiot2 rola="Podatnik"><etd:OsobaFizyczna>'
call AddKolejka
// dla deklaracji skˆadanych od 1.01.2012 r.
if not Pracownik (Osoba prowadz¥ca dziaˆalno˜† gospodarcz¥)
   if Pracownik (PESEL)<>''
     tekst$='<etd:PESEL>'&Pracownik (PESEL)&'</etd:PESEL>'
     call AddKolejka
   end
else
  tekst$='<etd:NIP>'&Funkcja usuwaj¥ca znaki przestankowe (Pracownik (NIP))&'</etd:NIP>'
  call AddKolejka
end
tekst$='<etd:ImiePierwsze>'&Kodowanie UNICODE (Pracownik (Imi©))&'</etd:ImiePierwsze>'
call AddKolejka
tekst$='<etd:Nazwisko>'&Kodowanie UNICODE (Pracownik (Nazwisko))&'</etd:Nazwisko>'
call AddKolejka
tekst$='<etd:DataUrodzenia>'&Format(Pracownik (Data urodzenia),'d10-')&'</etd:DataUrodzenia>'
call AddKolejka
tekst$='</etd:OsobaFizyczna>'
call AddKolejka
Adres zameldowania lub zamieszkania pracownika III (data,kraj_p$,woj_p$,powiat_p$,gmina_p$,ulica_p$,dom_p$,lokal_p$,miasto_p$,kod_p$,poczta_p$)
tekst$='<etd:AdresZamieszkania rodzajAdresu="RAD">'
call AddKolejka
if kraj_p$='Polska'
  tekst$='<etd:AdresPol><etd:KodKraju>'&'PL'&'</etd:KodKraju>'
  call AddKolejka
  tekst$='<etd:Wojewodztwo>'&Kodowanie UNICODE (woj_p$)&'</etd:Wojewodztwo>'
  call AddKolejka
  tekst$='<etd:Powiat>'&Kodowanie UNICODE (Powiat_p$)&'</etd:Powiat>'
  call AddKolejka
  tekst$='<etd:Gmina>'&Kodowanie UNICODE (gmina_p$)&'</etd:Gmina>'
  call AddKolejka
  if ulica_p$<>''
    tekst$='<etd:Ulica>'&Kodowanie UNICODE (ulica_p$)&'</etd:Ulica>'
    call AddKolejka
  end
  tekst$='<etd:NrDomu>'&dom_p$&'</etd:NrDomu>'
  call AddKolejka
  if lokal_p$<>''
    tekst$='<etd:NrLokalu>'&lokal_p$&'</etd:NrLokalu>'
    call AddKolejka
  end
  tekst$='<etd:Miejscowosc>'&Kodowanie UNICODE (miasto_p$)&'</etd:Miejscowosc>'
  call AddKolejka
  tekst$='<etd:KodPocztowy>'&kod_p$&'</etd:KodPocztowy>'
  call AddKolejka
  tekst$='<etd:Poczta>'&Kodowanie UNICODE (poczta_p$)&'</etd:Poczta>'
  call AddKolejka
  tekst$='</etd:AdresPol>'
  call AddKolejka
else
  tekst$='<etd:AdresZagr><etd:KodKraju>'&kraj_p$&'</etd:KodKraju>'
  call AddKolejka
  if kod_p$<>''
    tekst$='<etd:KodPocztowy>'&kod_p$&'</etd:KodPocztowy>'
    call AddKolejka
  end
  tekst$='<etd:Miejscowosc>'&Kodowanie UNICODE (miasto_p$)&'</etd:Miejscowosc>'
  call AddKolejka
  if ulica_p$<>''
    tekst$='<etd:Ulica>'&Kodowanie UNICODE (ulica_p$)&'</etd:Ulica>'
    call AddKolejka
  end
  if dom_p$<>''
    tekst$='<etd:NrDomu>'&dom_p$&'</etd:NrDomu>'
    call AddKolejka
  end
  if lokal_p$<>''
    tekst$='<etd:NrLokalu>'&lokal_p$&'</etd:NrLokalu>'
    call AddKolejka
  end
  tekst$='</etd:AdresZagr>'
  call AddKolejka
end
tekst$='</etd:AdresZamieszkania>'
call AddKolejka
tekst$='</Podmiot2>'
call AddKolejka
// ----- Pozycje szczeg¢lowe -----------
tekst$='<PozycjeSzczegolowe>'
call AddKolejka
if z_pitr$<>''
   tekst$='<P_23>1</P_23>'
   call AddKolejka
end
//
if p>0 or k>0 or pa>0 or ka>0 or d>0 or z>0
  tekst$='<P_24>'&num2txt(koszty36)&'</P_24>'
  call AddKolejka
  tekst$='<P_25>'&num2txt(p)&'</P_25>'
  call AddKolejka
  if k>0
    tekst$='<P_26>'&num2txt(k)&'</P_26>'
    call AddKolejka
  end
  tekst$='<P_27>'&num2txt(d)&'</P_27><P_28>'&num2txt(z)&'</P_28>'
  call AddKolejka
  if pa>0
    tekst$='<P_29>'&num2txt(pa)&'</P_29>'
    call AddKolejka
  end
  if ka>0
    tekst$='<P_30>'&num2txt(ka)&'</P_30>'
    call AddKolejka
  end
end
//
tekst$='<P_31>0</P_31><P_32>0</P_32><P_33>0</P_33>'
call AddKolejka
tekst$='<P_34>0</P_34><P_35>0</P_35><P_36>0</P_36>'
call AddKolejka
tekst$='<P_37>0</P_37><P_38>0</P_38><P_39>0</P_39>'
call AddKolejka
// umowy zlec. i o dzieˆo..... - art.13 ustawy
tekst$='<P_40>'&num2txt(p1)&'</P_40>'
call AddKolejka
if k1>0
  tekst$='<P_41>'&num2txt(k1)&'</P_41>'
  call AddKolejka
end
tekst$='<P_42>'&num2txt(d1)&'</P_42>'
call AddKolejka
tekst$='<P_43>'&num2txt(z1)&'</P_43>'
call AddKolejka
// prawa autorskie ......- art.18 ustawy
tekst$='<P_44>'&num2txt(p7)&'</P_44>'
call AddKolejka
tekst$='<P_45>'&num2txt(d7)&'</P_45>'
call AddKolejka
tekst$='<P_46>'&num2txt(z7)&'</P_46>'
call AddKolejka
if po7>0
  tekst$='<P_47>'&num2txt(po7)&'</P_47>'
  call AddKolejka
end
if k7>0
  tekst$='<P_48>'&num2txt(k7)&'</P_48>'
  call AddKolejka
end
// inne «r¢dˆa
tekst$='<P_49>'&num2txt(p8)&'</P_49>'
call AddKolejka
tekst$='<P_50>0</P_50>'
call AddKolejka
tekst$='<P_51>'&num2txt(d8)&'</P_51>'
call AddKolejka
tekst$='<P_52>'&num2txt(z8)&'</P_52>'
call AddKolejka
//
tekst$='<P_53>'&num2txt(przychod)&'</P_53>'
call AddKolejka
tekst$='<P_54>'&num2txt(koszty)&'</P_54>'
call AddKolejka
tekst$='<P_55>'&num2txt(dochod)&'</P_55>'
call AddKolejka
tekst$='<P_56>'&num2txt(zaliczka)&'</P_56>'
call AddKolejka
//
if spoleczne>0
  tekst$='<P_57>'&num2txt(spoleczne)&'</P_57>'
  call AddKolejka
  //tekst$='<P_58>0</P_58>'
  //call AddKolejka
end
if swiadczenia>0
  tekst$='<P_59>'&num2txt(swiadczenia)&'</P_59>'
  call AddKolejka
end
//
//tekst$='<P_60>0</P_60>'
//call AddKolejka
//tekst$='<P_61>0</P_61>'
//call AddKolejka
//
tekst$='<P_62>'&num2txt(sdochod)&'</P_62>'
call AddKolejka
tekst$='<P_63>'&num2txt(pd1)&'</P_63>'
call AddKolejka
//tekst$='<P_64>0</P_64>'
//call AddKolejka
tekst$='<P_65>'&num2txt(pd1)&'</P_65>'
call AddKolejka
//
if zdrowotneo>0 or zdrowotneo1>0
  tekst$='<P_66>'&num2txt(zdrowotneo)&'</P_66>'
  call AddKolejka
  tekst$='<P_67>0</P_67>'
  call AddKolejka
  tekst$='<P_68>'&num2txt(zdrowotneo1)&'</P_68>'
  call AddKolejka
end
if inne$<>'' or inne>0
  if inne$<>''
    tekst$='<P_69>'&inne$&'</P_69>'
  else
    tekst$='<P_69>'&chr(255)&'</P_69>'
  end
  call AddKolejka
  tekst$='<P_70>'&num2txt(inne)&'</P_70>'
  call AddKolejka
end
//
tekst$='<P_71>'&num2txt(pd1_bez_zdrowotne)&'</P_71>'
call AddKolejka
if swieksze>0
  tekst$='<P_73>'&num2txt(swieksze)&'</P_73>'
  call AddKolejka
else
  tekst$='<P_72>'&num2txt(smniejsze)&'</P_72>'
  call AddKolejka
end
tekst$='</PozycjeSzczegolowe>'
call AddKolejka
//
tekst$='<Pouczenie>'
call AddKolejka
tekst$=Kodowanie UNICODE ('Za uchybienie obowi¥zkom pˆatnika grozi odpowiedzial')
call AddKolejka
tekst$=Kodowanie UNICODE ('no˜† przewidziana w Kodeksie karnym skarbowym.')
call AddKolejka
tekst$='</Pouczenie>'
call AddKolejka
//zaˆacznik ORD-ZU
if cel=2 and (t1$<>'' or t2$<>'' or t3$<>'' or t4$<>'' or opis$<>'')
  tekst$='<Zalaczniki>'
  call AddKolejka
  tekst$='<zzu:Zalacznik_ORD-ZU>'
  call AddKolejka
  tekst$='<zzu:Naglowek>'
  call AddKolejka
  tekst$='<zzu:KodFormularza kodSystemowy="ORD-ZU (2)" wersjaSchemy='
  call AddKolejka
  tekst$='"2-0E">ORD-ZU</zzu:KodFormularza>'
  call AddKolejka
  tekst$='<zzu:WariantFormularza>2</zzu:WariantFormularza>'
  call AddKolejka
  tekst$='</zzu:Naglowek>'
  call AddKolejka
  tekst$='<zzu:PozycjeSzczegolowe>'
  call AddKolejka
  tekst$='<zzu:P_13>'
  call AddKolejka
  //
  if not (val('¢')=243) // tylko DOS
     if t1$<>''
        //tekst$=Kodowanie UNICODE (t1$)&chr(13)
        tekst$=Kodowanie UNICODE (SubString(t1$,1,50)) & |
        Kodowanie UNICODE (SubString(t1$,51,100)) //&chr(13)
        call AddKolejka
     end
     if t2$<>''
        //tekst$=Kodowanie UNICODE (t2$)&chr(13)
        tekst$=Kodowanie UNICODE (SubString(t2$,1,50)) & |
        Kodowanie UNICODE (SubString(t2$,51,100)) //&chr(13)
        call AddKolejka
     end
     if t3$<>''
        //tekst$=Kodowanie UNICODE (t3$)&chr(13)
        tekst$=Kodowanie UNICODE (SubString(t3$,1,50)) & |
        Kodowanie UNICODE (SubString(t3$,51,100)) //&chr(13)
        call AddKolejka
     end
     if t4$<>''
        //tekst$=Kodowanie UNICODE (t4$)
        tekst$=Kodowanie UNICODE (SubString(t4$,1,50)) & |
        Kodowanie UNICODE (SubString(t4$,51,100)) //&chr(13)
        call AddKolejka
     end
   else
     // --- tylko WIN
     //#dl=len(opis$)
     //#j=1
     //#while j<dl
     //#   if j+50>dl
     //#      tekst$=Kodowanie UNICODE (SubString(opis$,j,dl-j+1))
     //#    else
     //#      tekst$=Kodowanie UNICODE (SubString(opis$,j,50))
     //#   end
     //#   call AddKolejka
     //#   j=j+50
     //#end
  end
  //
  tekst$='</zzu:P_13>'
  call AddKolejka
  tekst$='</zzu:PozycjeSzczegolowe>'
  call AddKolejka
  tekst$='</zzu:Zalacznik_ORD-ZU>'
  call AddKolejka
  tekst$='</Zalaczniki>'
  call AddKolejka
end
tekst$='</Deklaracja>'
call AddKolejka
////////////

nazwa_pliku$='d'&num2txt(Pracownik (Nr ewidencyjny))&'.xml'

Transfer PIT (nazwa_pliku$,0)
free(Kolejka)

AddKolejka:
  l1=len(tekst$)
  l2=1
  while l2<=l1
     Kolejka(Num1)=w
     Kolejka(Txt1)=substring(tekst$,l2,1)
     Add(Kolejka,'Num1')
     l2=l2+1
     w=w+1
  end